(pmail-cease-edit): Put `>' before `From ' lines in message.

diff --git a/lisp/mail/pmailedit.el b/lisp/mail/pmailedit.el
index 2fd400d2b75e3a7794d5962839655a441141652b..d26a7b681c9dc4fc641926474e24c9ec62126df2 100644 (file)
--- a/lisp/mail/pmailedit.el
+++ b/lisp/mail/pmailedit.el
@@ -107,6 +107,12 @@ This functions runs the normal hook `pmail-edit-mode-hook'.
       (save-excursion
        (set-buffer pmail-summary-buffer)
        (pmail-summary-enable)))
+  ;; Disguise any "From " lines so they don't start a new message.
+  (save-excursion
+    (goto-char (point-min))
+    (while (search-forward "\nFrom " nil t)
+      (beginning-of-line)
+      (insert ">")))
   ;; Make sure buffer ends with a blank line
   ;; so as not to run this message together with the following one.
   (save-excursion